home *** CD-ROM | disk | FTP | other *** search
/ PC go! 2008 April / PCgo 2008-04 (DVD).iso / interface / contents / demoversionen_3846 / 13664 / files / Data1.cab / dlgdrawings.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-10-16  |  2.2 KB  |  68 lines
  1. VERSION 5.00
  2. Begin VB.Form dlgDrawings 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Select Drawing"
  5.    ClientHeight    =   2280
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   6030
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2280
  13.    ScaleWidth      =   6030
  14.    ShowInTaskbar   =   0   'False
  15.    Begin VB.ListBox lstDwgs 
  16.       Height          =   1620
  17.       Left            =   120
  18.       TabIndex        =   2
  19.       Top             =   120
  20.       Width           =   3972
  21.    End
  22.    Begin VB.CommandButton CancelButton 
  23.       Caption         =   "Cancel"
  24.       Height          =   375
  25.       Left            =   4680
  26.       TabIndex        =   1
  27.       Top             =   600
  28.       Width           =   1215
  29.    End
  30.    Begin VB.CommandButton OKButton 
  31.       Caption         =   "OK"
  32.       Height          =   375
  33.       Left            =   4680
  34.       TabIndex        =   0
  35.       Top             =   120
  36.       Width           =   1215
  37.    End
  38. Attribute VB_Name = "dlgDrawings"
  39. Attribute VB_GlobalNameSpace = False
  40. Attribute VB_Creatable = False
  41. Attribute VB_PredeclaredId = True
  42. Attribute VB_Exposed = False
  43. '******************************************************************'
  44. '*                                                                *'
  45. '*                      TurboCAD for Windows                      *'
  46. '*                   Copyright (c) 1993 - 2001                    *'
  47. '*             International Microcomputer Software, Inc.         *'
  48. '*                            (IMSI)                              *'
  49. '*                      All rights reserved.                      *'
  50. '*                                                                *'
  51. '******************************************************************'
  52. Option Explicit
  53. Public bOK As Boolean
  54. Public indDwg As Long
  55. Private Sub CancelButton_Click()
  56.     Hide
  57. End Sub
  58. Private Sub Form_Activate()
  59.     bOK = False
  60. End Sub
  61. Private Sub OKButton_Click()
  62.     If (lstDwgs.SelCount() = 1) Then
  63.         indDwg = lstDwgs.ListIndex
  64.         bOK = True
  65.     End If
  66.     Hide
  67. End Sub
  68.